home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / rexx / abort.avm next >
Text File  |  1995-03-09  |  1KB  |  34 lines
  1. /* */
  2. parse upper arg server device type multi .
  3.  
  4. /* ignore type if "multi" */
  5.  
  6. if multi = "YES" then call setclip("AVMAbortMulti", "YES")
  7.  
  8. if type = 'MULTI' then type = getclip("AVMPlayMultiType")
  9.  
  10. if type = 'VOICE' then
  11.     if device = 'INTERNALSPEAKER' | device = 'TELEPHONELINE' | device = 'EXTERNALMIC' | device = 'LOCALHANDSET' then do
  12.         faxserver = server || 'F'
  13.         if show('p', faxserver) then do
  14.             address value faxserver
  15.             'abort'
  16.         end; else if show('p', server) then do
  17.              address value server
  18.             'abort'
  19.         end
  20.     end; else if device = 'AMIGA' then do
  21.         if show('p', 'AVMVOICE2IFF') then address 'AVMVOICE2IFF' 'abort'
  22.                 /*
  23.         if show('p', 'AGMSPlaySound') then address 'AGMSPlaySound' 'StopPlaying'
  24.                 */
  25.                 if show('p', 'DSOUNDABORT') then address 'DSOUNDABORT' 'Abort'
  26.         if show('p', 'AGMSRecordSound') then address 'AGMSRecordSound' 'StopRecording'
  27.     end; else if device = 'AMIGADIRECT' then do
  28.         if show('p', 'AVMVOICE2IFF') then address 'AVMVOICE2IFF' 'abort'
  29.     end
  30. else if type = 'FAX' then
  31.     say 'cannot abort viewfax from here'
  32.  
  33. exit
  34.